Interactive R Code Module

INFO 526 - Reading Quizzes R Code Module

Interactive R Code module for students to play with R code in a web browser

Author

Affiliation

Greg Chism

School of Information, University of Arizona

Usage instructions

This is a functioning WebR R live code chunk for usage in INFO 526 Reading Quizzes.

For a list of webr available packages, check here.
To install packages, use webr::install()

Reading Quiz #1

Question 6

Reading Quiz #3

Question 4

---
title: "Interactive R Code Module"
subtitle: "INFO 526 - Reading Quizzes R Code Module"
author: 
  - name: "Greg Chism"
    affiliations:
      - name: "School of Information, University of Arizona"
description: "Interactive R Code module for students to play with R code in a web browser"
format:
   html:
    code-tools: true
    code-overflow: wrap
    embed-resources: true
editor: visual
execute:
  warning: false
  echo: false
filters:
  - webr
webr:
  channel-type: "automatic"
  packages: ['palmerpenguins', 'ggplot2', 'dplyr']
---

## Usage instructions

This is a functioning [WebR](https://docs.r-wasm.org/webr/latest/) R live code chunk for usage in INFO 526 Reading Quizzes.

-   For a list of `webr` available packages, check [here](https://repo.r-wasm.org/).

-   To install packages, use `webr::install()`

## Reading Quiz #1

### Question 6

```{webr-r}
# Load penguins
data(penguins)

penguins |> 
  head()
```

## Reading Quiz #3

### Question 4

```{webr-r}
# Load mtcars
data("mtcars")

# Create mtcars1
mtcars1 <- mtcars |>
  select(mpg, disp, am) |>
  filter(mpg > 20)

# Create mtcars2
mtcars2 <- mtcars |>
  select(mpg, disp) |>
  filter(mpg <= 20)

# Plotting
ggplot(mtcars1, aes(x = disp, y = mpg)) +
  geom_point() +
  facet_wrap(~ am) +
  geom_point(data = mtcars2, color = "red")
```